home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 July / PCWorld_2001-07_cd.bin / Software / Vyzkuste / xsetup / setup.exe / {app} / plugins / XQ Opera 4.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-02-10  |  1.8 KB  |  84 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="2"
  3. "COUNT"="3"
  4. "UIPATH"="Internet\Opera"
  5. "NAME"="Opera Preferences"
  6. "VERSION"="2.00"
  7. "OSVERSION"="11111"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Language Options"
  10. "TEXT 2"="Paths Options"
  11. "TEXT 3"="Personal Options"
  12. "DESCRIPTION 1"="For Opera 5: To disable display of various settings in user preferences, enter "0" [no quotes]; to enable [default] display of settings, enter "1" [no quotes]."
  13. "AUTHOR"="Ojatex@aol.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="For X-Setup program information, go to http://www.xteq.com."
  16. "COMMENT 2"="Thanks to CptSiskoX for suggested plugin."
  17.  
  18. sFile=""
  19. ss="Menu Prefs Settings"
  20. v1="Language"
  21. v2="Paths"
  22. v3="Personal"
  23.  
  24. Sub GetINIFile    
  25.     sPath=RegReadValue("HKCU\Software\Opera Software\Last Directory")
  26.     sFile=sPath & "\OPERA.ini"
  27.  
  28.     if FileExists(sFile)=false then
  29.        sFile=GetWinDir & "OPERA.ini"
  30.     end if   
  31. End Sub
  32.  
  33.  
  34. Sub Plugin_Initialize 
  35.  Call GetINIFile
  36.  
  37.  If FileExists(sFile)=true then
  38.     i=IniReadValue(sFile,ss,v1)
  39.     SetUIElement 1,i
  40.  
  41.     i=IniReadValue(sFile,ss,v2)
  42.     SetUIElement 2,i
  43.  
  44.     i=IniReadValue(sFile,ss,v3)
  45.     SetUIElement 3,i
  46.  else
  47.     Call Disable()
  48.  end if
  49.  
  50. End Sub
  51.  
  52. Sub Plugin_CheckData(ElementIndex)
  53. End Sub
  54.  
  55. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  56.  i=GetUIElement(1)
  57.  if len(i)=0 then
  58.     Call IniWriteValue(sFile,ss,v1,"")
  59.  else
  60.     Call IniWriteValue(sFile,ss,v1,i)
  61.  end if
  62.  
  63. i=GetUIElement(2)
  64.  if len(i)=0 then
  65.     Call IniWriteValue(sFile,ss,v2,"")
  66.  else
  67.     Call IniWriteValue(sFile,ss,v2,i)
  68.  end if
  69.  
  70. i=GetUIElement(3)
  71.  if len(i)=0 then
  72.     Call IniWriteValue(sFile,ss,v3,"")
  73.  else
  74.     Call IniWriteValue(sFile,ss,v3,i)
  75.  end if
  76.  
  77. End Sub
  78.  
  79. Sub Plugin_Terminate 
  80. End Sub
  81.  
  82.  
  83.  
  84.